home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nautilus 1994 August
/
Nautilus CD Magazine Volume 4-8 August 1994 Windows Edition.mdf
/
setup
/
nautcd
/
media.vwr
(
.txt
)
< prev
next >
Wrap
Asymetrix ToolBook File
|
1994-08-12
|
71KB
|
1,227 lines
textViewer
Text Viewer
Media Viewer
Text Viewer
textViewer
Media Viewer
mediaViewer
textViewer
textField
evaluate(RichText)
Close
closeTextViewer
buttonUp
false
_isPlaying
Close
Print
printText
buttonClick
Print
status
360, 7215
"textField"
sysSuspendMessages
Print
status
Text Viewer
textField
leavePage
pageUp
dpageDown
textField
keyDown
textField
pageDown
textField
pageUp
"textField"
(x =
(x = keyDownArrow);
pageDown 1
(x =
pageUp 1
< 0);
Reading document...
wwwwwwwwwp
wwwwwwwwwp
wwwwwwwwwp
wwwwwwwwwp
wwwwwwwwwp
wwwwwwwwwp
wwwwwwwwwp
wwwwwwwwwp
wwwwwwwwwp
wwwwwwwwwp
wwwwwwwwwp
wwwwwwwp
wwwwwwwp
wwwwwwwp
Media Viewer
status
Media Viewer
BROWSE.AVIvie...o......
Pause
pauseMedia
buttonClick
nClick
pauseMedia
playMedia
buttonClick
playMedia
timerNotify
onClick
playMedia
timerNotify
close
closeMedia
buttonClick
nClick
closeMedia
Close
slideBox
slider
rSide
slideBar
buttonClick
nClick
mousePosition
e> rSide(
B"slideBar"
slideBar
myEnabled
StepBack
buttonClick
buttonStillDown
onClick
StepForward
buttonClick
buttonStillDown
onClick
mediaViewerStage
closeMedia
szClipRef
buttonUp
szClipRef
closeMedia
42,42,2442,1842
mediaBounds
icons
CDAudio
wwwwwwwwwp
wwwwwp
wwwwwp
wwwwwwp
wwwww
wwwwp
wwwwp
wwwww
wwwwwwwwwp
wwwwwwwwwp
Sequencer
wwwwwwwwwp
wwwwwwwwwp
wwwwwwwwwp
wwwwwwwwwp
tdFFDddFFp
wwwwwwwwwp
wvllwwwwwp
FDdFp
wwwwp
tdF|Htg
wwwwwwwH
wwwwwww
wwwwwww
wwwwwwwwwp
wwwwwwwwwp
Bitmap
wwwwwwwwwp
wwwww
wwwww
wwwww
wwwww
wwwwwwwwwp
WaveAudio
wwwwwwwwwp
wwwwwwp
xxxwwwwwwp
xwwwwwwp
wwwww
wwwwp
wwwwp
wwwww
wwwwwwwwwp
wwwwwwwwwp
Movie
mainWindow
Media Viewer
iewer
page "Media Viewer"
mediaViewer
Media Viewer
ge "mediaViewer"
browseViewer
dia Player
ge "Media Viewer"
NautilusCD Browse
ge "browseViewer"
textViewer
Text Viewer
closeMedia
closeWindow
closeWindow
closeMedia
szCloseNoNotify
szCloseNoNotify
closeWindow
closeWindow
szCloseNoNotify
page "Text Viewer"
s book
textViewer
openWindow
openWindow
odefaultPage =
"textViewer"
ge "mediaViewer"
ge mediaViewer
Page "Media Viewer"
ptLastMediaPos
moved
4ptLastMediaPos
-- *** Store the
rather than
UL corner *** --
ptLastMediaPos
moved
moved
4ptLastMediaPos
ptLastMediaPos
moved
moved
4ptLastMediaPos
page "Browse Viewer"
"browseViewer"
closeWindow
4logical isBrowseInit
szBrowseClip
mmIsOpen
mmClose
% wait
mainWindow
mediaObjects
mediaObjectBounds
versionID
Media
viewerType
System
Arial
BW Times
Arial
d:\enter\perform\celnav
:CDMEDIAPATH
:SHOWCONFIRM
2850,825
ptBackgroundSize
textField
Arial
mediaObjectNames
BW TIMES
Button id 15 of Page id 1
Button id 16 of Page id 1
Button id 20 of Page id 1
Group id 14 of Page id 1
Button id 17 of Page id 1
Button id 18 of Page id 1
Button id 19 of Page id 1
Stage id 29 of Page id 1
Group id 59 of Page id 1
RecordField id 0 of Background id 0
2820,885
HxuJlxA
RecordField id 0 of Background id 0
Button id 15 of Page id 1
Button id 16 of Page id 1
Button id 20 of Page id 1
Group id 14 of Page id 1
Button id 17 of Page id 1
Button id 18 of Page id 1
Button id 19 of Page id 1
Stage id 29 of Page id 1
Group id 59 of Page id 1
60,60,390,390
60,60,390,390
2100,450,2760,765
390,60,2100,390
390,60,555,390
2100,60,2430,390
2430,60,2760,390
60,60,2760,75
60,450,345,795
2820,885
2820,885
345,510,2100,780
60,120,390,450
60,120,390,450
2100,510,2760,825
390,120,2430,450
390,120,555,450
2100,120,2430,450
2430,120,2760,450
30,30,2760,45
60,510,345,855
age id 1
Button id 19 of Page id 1
Stage id 29 of Page id 1
Group id 59 of Page id 1
0,60,390,390
2100,450,2760,765
390,60,2100,390
390,60,555,390
2100,60,2430,390
2430,60,2760,390
60,60,2760,75
60,450,345,795
2820,885
2820,885
345,510,2100,780
60,120,390,450
60,120,390,450
2100,510,2760,825
390,120,2430,450
390,120,555,450
2430,120,2760,450
2430,120,2760,450
30,30,2760,45
60,510,345,855
age id 1
Button id 19 of Page id 1
Stage id 29 of Page id 1
Group id 59 of Page id 1
f Page id 1
d:\_nautcd\extras\browse.avi
\IMAGE2_2.WAV
TileWal
Metatec
ncd256
NautilusCD
playMedia szMediaSource,bIsInPlace,dwLength,stSize
Arguments
-- *
E : String containing the complete pathname
-- source file
track
CDAudio.
This
Donly
-- required parameter
initialization.
-- *
: Boolean
whether
media plays "
-place".
-- *
: Dword
length
appropriate
known.
-- For pictures, pass a zero
passed
-- *
: Stack
either
pixels
--
visual
-- * Notes: If
kstack, MPT.SBK must precede
--
% so that
can concatenate
relative
--
romDrive().
Otherwise,
--
szClipRef,szMediaType,szViewer,szStage
szMediaFinish,szStatus
dwMediaLength
gwTimerID
4logical bMediaInit,bVisual,bNotify,bSlider,bLooping
bSuperceded,bViewerInit,bSliderInit
szIdleCmds[] -- *** Mechanism
series
commands on
*** --
dwBegin
SysSuspend,bSysMediaSuspend
= "Metatec"
= "mediaViewer"
= "mediaViewerStage"
p> 0 -- ***
always > 0
called
extension. *** --
-- *** It
B. *** --
-- *** Get
type w/o having
performance *** --
-- *** reasons
display "user-friendly"
Xnames. *** --
= mediaType(
c"Text" -- *** Might be "Rich
Format" *** --
playText
mmIsOpen
clip
mmStop
mmClose
KillTimer(windowHandle
isOpen
= preference("mediaFinish","closeViewer") -- ***
,,default *** --
= 42 -- *** The answer
God,
Universe,
Everything *** --
callMCI("
cdaudio
milliseconds
Gstatus
" &&
&& "
isType(
"Cannot determine starting
" &&
" &&
&& "
" &&
"There was a problem initializing
mmSource
= "CDaudio"
mmTimeFormat
mmBeginPoint
mmEndPoint
- 2 -- *** Fudge factor *** --
= "Track" &&
= "Opening CD
| .."
initViewer
initSlider
"Bitmap,Movie"
<> "
" &&
& "..."
-- *** If
supplied,
asap (B4 opening
) *** --
) >= 2)
-- *** As above, initialize
/slider w/o
possible *** --
<> 0) -- *** Zero means
- no
Z. *** --
-- *** System var, used
multiple handlers *** --
bSysSuspend =
= sysMediaSuspend
closeMedia
-- *** To
*** --
= fileOnly(
<> "
= "frames"
mmBackgroundPalette
= mmSourceLength
mmOpen
mmCue
bInPlace = (
P) -- ***
below *** --
-- ***
so don't
*** --
-- *** Workaround
lack
movies are
played. *** --
dimensions(
) + 1] = "
""MediaViewer""
" && \
& ";mmPlay
""" &
& """
" &&
stage" &&
& ";
) + 1] = "mmPause
" &&
&& \
" &&
) + 1] = "
" && \
""" &
& """
" &&
&& "notify" &&
-- *** *** --
) + 1] = "
SetTimer(
targetWindow,
,1000,0)
4point ptLastTextPos
szTextViewer,szTemp
RichText
\lFileSize
bRichText = (
\ = "textViewer"
parentWindow
" = "Reading document..."
J"textField"
= "0,0"
screenResolution()
= getFileSize(
richText
o(13)
o(10)
o(32)
playMCI
fPlacement
szTypeOfMedia
szMediaBounds
t = "
alias _media
" &&
&& "style child
" && sysClientHandle && \
" &&
&& "
on 1")
TMSF")
tracks")
" &&
&& "
" &&
+ 1 && \
" &&
&& "
= "0,0,0,0"
= "topLeft"
= movieBounds("
= "topRight"
= "bottomLeft"
= "bottomRight"
) = 4
-- *** Convert coordinates
extents *** --
-- *** Add 1
avoid showing a
*** --
-- ***
placeholder graphic
*** --
- 1)
- 1)
~(",",
" &&
realize
destination
)" &&
state
stop
") -- ***
seems
*** --
flushMessageQueue()
MCINotify
,szOperation,szDevice
Interrupted
( = "
<> "successful"
bInterrupted =
MediaPos
eft,ptSize,ptFudgeFactor
dwRight,dwOffset
defaultType
captionBar
= "popup"
= dialogFrame
outerBevelWidth
= 0
innerBevelWidth
= 0
borderWidth
= 0
= sysPageUnitsPerPixel -- ***
0,0 *** --
= 30
= 30
= 30
= 60 -- ***
0 *** --
-- ***
will have been opened
*** --
mmVisualSize
-- ***
hasn't
Ryet *** --
P-- ***
rect
*** --
pageUnitsToClient(
-- ***
x & y
*** --
-- *** mediaSize
different
fbevels UNLESS *** --
-- ***
saved
a non-
values
*** --
-- ***
height
greater than 1/3
eventual
width (?!*)*** --
-- *** (
twice
widths, therefore multiply
H3 instead
*** --
ptLeft = lSide(
= rSide(
= 2760 +
"icons"
B"slideBar" =
"slideBox" =
"" =
" =
B"stepback" =
B"stepforward" =
" =
" =
objTop
B"slidebar"
-- *** Update
et al. *** --
L%") +
translateWindowMessage
on 0x0113
setSlideBar
parentHandle
b# =
ptPosition =
") +
ptLastMediaPos = "0,0"
]' =
-- ***
7'enter
L''moved' *** --
-- ***
(i.e.,
;%) *** --
/ 2) > \
/ 2) > \
/ 2) < 0
/ 2) < 0
/ 2)), \
/ 2))
dwSlideInterval,dwSlideIncrement
a',dwTravel,dwSlideStart
linkDLL
$ord,
' / 16)
( = "
/ 10)
") -
pauseMedia
dwPosition
4( =
( = "WaveAudio"
, = mmPosition
mmSeek
dwCurPos
~)Playing,
focusWindow <> "
bPlaying = (mmStatus
= "playing")
P) =
key =
mmStep
- 1, \
J+ - 1
keyDownArrow
z+ - 1
- 1, \
I, = "
xmmVisible
mmShow
><> "
, = "
b,) + 1] = "
" &&
C-bUsesViewer
reset
, -- *** In
had its
+. =
closeTextViewer
mmNotify mediaRef,cmd,result
Q = "
mmMediaType
J/ = "
W/ =
y) -- *** might be
Q0 *** --
/ = "auto-loop"
^/ =
mmRewind
cmd =
,dwTraveled
1) *
szBounds
dwLeft,dwTop
"ClientArea
.where
ptClientArea =
clientSize
) / 2
) / 2
statusBar
myPath
D$ =
i$ = "\"
printText
1440, 1440, 1440, 1440
360, 7215
sysSuspendMessages
resetMediaViewer
szObjects[]
6 stArray[]
$ = mediaObjectNames
- = mediaObjectBounds
pi] =
4() = ptBackgroundSize
storeObjectBounds
6 stBounds[]
i] =
<i] =
i] =
zi] =
backGround
-- *** Utility
-- ***
duplicated
7, but just
M... *** --
4 szFileName
fileExtension(
= "WAV"
= "MID"
"Sequencer"
"BMP,DIB,GIF,PCX,TIF,WMF"
"AVI,MOV,FLI,FLC,MMM"
"TXT,DOC"
= "RTF"
"Unsupported
-- *** Dupes
METATEC.
allow standalone
8*** --
szFileSpec
~(".",
) = 0
~(".",
7) + 1)
= "\"
upperCase(
V(i + 1)
-- *** --
newLSide
-- N.B.
LIS AN O/S KEYWORD, HENCE
INSTEAD
newTop
newRSide
newBot
newWidth
newHeight
noSize
dwDelta,dwSeekTo,dwLastX
szClipRef
4logical bPlaying,bLooping
gwTimerID
KillTimer(windowHandle
targetWindow,
q = (mmStatus
clip
mediaViewer() = "
= mmPosition
b(rSide(
B"play"),
lSide(
B"stepback") - width(
,szMediaType
MediaLength,dwTravel
szIdleCmds[]
SysSuspend,bSysMediaSuspend
j(dwMediaLength - 1, \
b(0,(((
)) /
) * \
bSysSuspend =
z = sysMediaSuspend
= "WaveAudio"
mmClose
mmOpen
mmSeek
dimensions(
) + 1] = "
playMedia
" &&
.&+ +E
+&,!Y
+ , #?
+ ,
+ , #>
+ , #?
+ , #?
+ , #>
+ , #?
set cdaudio time format milliseconds
closeMedia
Opening
mediaFinish
;mmPlay clip "
status cdaudio length track
initViewer
system logical bSuperceded;bSuperceded = false
mediaType
szStatus
Bitmap
open cdaudio wait
playText
bViewerInit
Opening CD Audio...
pause
close cdaudio wait
initSlider
bSliderInit
bInPlace
Bitmap,Movie
Track
bSuperceded
milliseconds
wTimerID
CDAudio
notify
bVisual
bNotify
mediaViewerStage
szViewer
mmPause clip
Cannot determine length of track
frames
from 0 in stage
KillTimer
CDaudio
closeViewer
bSlider
szStage
Movie
in viewer "MediaViewer" of
szIdleCmds
szMediaFinish
dwMediaLength
EofileOnly
bLooping
xSetTimer
There was a problem initializing CDAudio
status cdaudio position track
szMediaType
szClipRef
bMediaInit
default
preference
mediaViewer
status
Cannot determine starting position of track
set cdaudio time format milliseconds wait
Metatec
playMedia
.&+ +E
.&, 7
.&, 7
szMediaType
ptLastTextPos
default
EofileOnly
getFileSize
Reading document...
screenResolution
textViewer
Rich Text Format
textField
status
playText
-#, #?
V, #?
-#, #?
alias _media wait
Movie
stop _media wait
0,0,0,0
close _media wait
mediaType
topLeft
break _media on 1
play _media from
center
style child parent
movieBounds
set _media time format TMSF
put _media destination at
window _media state show
topRight
realize _media background
play _media wait
CDAudio
open cdaudio alias _media wait
window _media handle
status _media number of tracks
bottomRight
bottomLeft
playMCI
bInterrupted
successful
MCINotify
1+U!8
szViewer
ptPosition
lSide
slidebar
objTop
szClipRef
stepforward
pause
szMediaType
bSlider
bViewerInit
slideBar
rSide
ptLastMediaPos
setSlideBar
slideBox
width
objTop
rSide
szStage
screenResolution
lSide
icons
close
bVisual
stepback
status
initViewer
+&,!J
+&,!J
szViewer
dwTravel
Movie
slideBar
dwSlideStart
szMediaType
dwSlideIncrement
dwSlideInterval
rSide
dwMediaLength
slider
width
bSliderInit
SetTimer
KillTimer
initSlider
WaveAudio
szMediaType
bSuperceded
mediaViewer
szClipRef
pauseMedia
+&,!"
+&,!J
+&,!J
setSlideBar
mediaViewerStage
WaveAudio
Movie
playMedia
pause
szMediaType
bSlider
dwSlideIncrement
dwSlideInterval
szIdleCmds
mediaViewer
dwMediaLength
playing
send playMedia to
MediaViewer
szClipRef
keyDown
szViewer
KillTimer
wTimerID
szIdleCmds
bMediaInit
szClipRef
closeMedia
textViewer
closeTextViewer
mmRewind
closeViewer
szViewer
closeMedia
lSide
bMediaInit
KillTimer
wTimerID
Bitmap
auto-loop
successful
mmPause
bVisual
bInPlace
bLooping
mmClose
bSuperceded
slideBar
mmPlay
szMediaFinish
szClipRef
rSide
mmNotify
+&,!Y
+&,!Y
szViewer
dwTravel
lSide
dwSlideStart
dwMediaLength
slidebar
szClipRef
setSlideBar
bottomRight
topLeft
topRight
center
where _media source wait
bottomLeft
movieBounds
<+U!!
reader
statusBar
enterBook
myPath
.&+ +
textField
printText
mediaObjectBounds
mediaViewer
mediaObjectNames
ptBackgroundSize
Media Viewer
resetMediaViewer
mediaObjectBounds
ptBackgroundSize
mediaObjectNames
storeObjectBounds
WaveAudio
Movie
SfileExtension
Bitmap
AVI,MOV,FLI,FLC,MMM
BMP,DIB,GIF,PCX,TIF,WMF
Sequencer
TXT,DOC
Unsupported media
Rich Text Format
CDAudio
mediaType
1, #b
fileExtension
1, #b
fileOnly
lSide
lSide
objTop
objTop
rSide
width
rSide
height
width
width
height
height
mediaViewer
noSize
dwSeekTo
dwDelta
KillTimer
wTimerID
mediaViewer
dwLastX
bLooping
Playing
bPlaying
szClipRef
buttonDown
+&,!Y
dwDelta
rSide
width
lSide
stepback
buttonStillDown
+&,!J
+&,!Y
+&,!Y
+&,!Y
w, #?
dwSeekTo
WaveAudio
dwTravel
dwDelta
szMediaType
mediaViewer
rSide
szIdleCmds
dwMediaLength
send playMedia to
bPlaying
szClipRef
buttonUp
CDBSE&File
&Open... Ctrl+O
&Save Ctrl+S
Save &As...
saveas
&Import...
import
&Export...
export
Print Set&up...
printsetup
&Print Pages... Ctrl+P
printpages
Prin&t Report...
printreport
Send &Mail...
sendmail
&Run...
E&xit Alt+F4
&Edit
&Undo Ctrl+Z
Cu&t Ctrl+X
&Copy Ctrl+C
&Paste Ctrl+V
paste
C&lear Del
clear
Select &All Shift+F9
selectall
Select Pa&ge Shift+F12
selectpage
&Size to Page F11
sizetopage
F&ind... F5
Re&place...
replace
Aut&hor F3
author
&Text
&Character... F6
character
&Paragraph... F7
paragraph
&Regular Ctrl+Space
regular
&Bold Ctrl+B
&Italic Ctrl+I
italic
&Underline Ctrl+U
underline
Stri&keout Ctrl+K
strikeout
Superscrip&t/Subscript
superscriptSubscript
&Normal Script
normalscript
Su&bscript Ctrl+L
subscript
Su&perscript Ctrl+Shift+L
superscript
&Show Hotwords F9
showhotwords
&Page
&Next Alt+Right
&Previous Alt+Left
previous
&First Alt+Up
first
&Last Alt+Down
&Back Shift+F2
&History... Ctrl+F2
history
N&ew Page Ctrl+N
newpage
&Help
&Contents F1
contents
Status &Bar F12
statusbar
wwwwwwp
wwwwwwp
wwwwwwwwwwwwwwwwwwwwwwwwww
wwwwww
wwwww
wwwww
wwwww
wwwww
wwwwwwwwwwwwwwwwwwwwwwwwwwww
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
CDAudio
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
wwwwwwwwp
{\rtf1\ansi \deff0{\fonttbl{\f0\froman Tms Rmn;}{\f1\fdecor
{\rtf1\ansi \deff0{\fonttbl{\f0\froman Tms Rmn;}{\f1\fdecor Symbol;}{\f2\fswiss Helv;}{\f3\fswiss Helvetica;}}{\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255;\red0\green255\blue0;\red255\green0\blue255;
\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255;}{\stylesheet{\s244 \fs16\up6 \sbasedon0\snext0 footnote reference;}{\s245 \fs20 \sbasedon0\snext245 footnote text;}{\s246\li720 \i\fs20 \sbasedon0\snext255 heading 9;}{\s247\li720
\i\fs20 \sbasedon0\snext255 heading 8;}{\s248\li720 \i\fs20 \sbasedon0\snext255 heading 7;}{\s249\li720 \fs20\ul \sbasedon0\snext255 heading 6;}{\s250\li720 \b\fs20 \sbasedon0\snext255 heading 5;}{\s251\li360 \ul \sbasedon0\snext255 heading 4;}{
\s252\li360 \b \sbasedon0\snext255 heading 3;}{\s253\sb120 \b\f2 \sbasedon0\snext0 heading 2;}{\s254\sb240 \b\f2\ul \sbasedon0\snext0 heading 1;}{\s255\li720 \fs20 \sbasedon0\snext255 Normal Indent;}{\fs20 \snext0 Normal;}{\s2\fi-240\li480\sb80\tx480 \f3
\sbasedon0\snext2 nscba;}{\s3\fi-240\l